www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminKernel\D_chucuo_jilu.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>




<%

dir_set="../../"







%>
<!--#include file=../../inc/conn.asp-->






<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->


<!--#include file=../../inc/functionb.asp-->
<!--#include file=../../inc/ND_class_function.asp-->



<%







Application.Lock()
Application("newdsoft_web_user_mdb_using")="no"
Application("newdsoft_web_user_mdb_when_using")=now()
Application.UnLock()





if find_dataw("qitashezhi123","0",6)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

%>






<font color=#0000ff>最后一次生成所有页面时出现的错误列表:</font>


<br><br>
<table width="690"   style="word-break:break-all" border="0"  cellpadding="0" cellspacing="0" >



<%
 nooo=0

	CurrentPage=replacebadchar(request("page"))
	if CurrentPage="" then
	CurrentPage=1
	else if not IsNumeric(CurrentPage) then
	CurrentPage=1
	else if int(CurrentPage)<=0 then
	CurrentPage=1
	else
 	CurrentPage=replaceBadchar(request("page"))
 	end if
	end if
	end if




			  
		
	







sql="select * from [ND_templates_error_label_list_cache] order by id asc"




	
	maxperpage=15






   '获取自身文件名
  aryxx     =split(Request.ServerVariables("SCRIPT_NAME"),"/")   
  fileNamexx   =   aryxx(ubound(aryxx))

strFileName=fileNamexx


set Rs=server.CreateObject("adodb.recordset")


Rs.open sql,conn,1,3
        

			  
			  
			  
			  if not Rs.eof then
	Rs.pagesize=MaxPerpage
	totalnumber=Rs.recordcount
	if totalnumber mod maxperpage=0 then
   MaxPage= totalnumber \ MaxPerpage
  	else
   MaxPage= totalnumber \ MaxPerpage+1
  	end if
	if int(CurrentPage)>int(MaxPage) then
	CurrentPage=MaxPage
	else
	CurrentPage=CurrentPage
	end if
	Rs.absolutepage=CurrentPage
	

	

		
		
		

		
	

for ni=1 to maxperpage
%>





<%

	if rs.eof then exit for
	%>
     



    <tr>

<td>



<img src="img/jinggao.gif" width=40 border=0>出现错误<%=ni%>:
<br>
错误类型:
<%=rs("complie_status")%>
<br>
出错的文件:<%=rs("template_full_path_filename")%>
<br>
出错的标签:{$$<%=rs("error_label_name")%>}
<br>
出错位置附近的代码:<%=HTMLEncode_ndk(replace(replace(rs("error_str_near"),"&quot;","& quot;"),"&amp;quot;","& amp;quot;"))%>

<br>

<%if rs("complie_status")="标签库有重名标签存在" then


%>
<font color=#0099ff>
所有与{$$<%=rs("error_label_name")%>}重名的标签:<br>

<%


set rs4411=server.CreateObject("adodb.recordset")
sql="select * from [ND_label_cache] where label_name='"&trim(rs("error_label_name"))&"'"
rs4411.open sql,conn,1,1
do while not rs4411.eof
%>

/<%=rs4411("label_full_path_name")%>&nbsp;&nbsp;标签名:{$$<%=rs("error_label_name")%>}
<br>



<%
rs4411.movenext



loop



%>

</font>


<br>


解决办法:修改与{$$<%=rs("error_label_name")%>}重名的所有标签的标签名，防止他们重名，然后重新生成

<%end if%>

<hr>

</td>

</tr>



        <%
	rs.movenext
	next
	%>
	  
			  
			  
			  


	  	  
			  <%
			

			  else
			  
			  nooo=1
			  %>
			  <tr><td colspan="7"  class=maintext align="center"><font color="#FF0000"><strong>本次生成没有出现任何错误，已经成功生成……</strong></font></td></tr>
			  <%end if
			  
			  
			
			  Rs.close
			  set Rs=nothing
			  %>
			        
					
					
					
					
					
					
					<tr>
        <td  colspan="7" align="center" height="27" ><%if nooo=0 then call showpage(strFileName,totalnumber,MaxPerPage,true,true,"个",CurrentPage)%></td>
      </tr>
	   

</table>






<script language=javascript>

<%
sttstrr="webname_settings"


	
biao3="[ND_sys]"
	
set rs22d=server.CreateObject("adodb.recordset")
rs22d.open "select top 1 * from "&biao3&" where type='"&sttstrr&"'",conn,1,1
	
	ddd1d=rs22d("data")
	

dddd12d=split(ddd1d,"|")

hhhta=cstr(dddd12d(4))
hhhtax=cstr(dddd12d(5))
htm_ext_ming=mid(hhhtax,2,len(hhhtax))	
	
	



sttstrr="webname_settings_qiye"

biao3="[ND_sys]"
	
set rs22d1=server.CreateObject("adodb.recordset")
rs22d1.open "select top 1 * from "&biao3&" where type='"&sttstrr&"'",conn,1,1
	
	ddd1d=rs22d1("data")
	

dddd12d=split(ddd1d,"|")

hhhta2=cstr(dddd12d(4))
hhhtax=cstr(dddd12d(5))
htm_ext_ming=mid(hhhtax,2,len(hhhtax))	
	






if clng(hhhta)=1 or clng(hhhta2)=1 then
%>


alert("你开启了全站生成htm功能，所以还要去刷新各htm页，请进入各生成htm功能菜单里生成各htm页");


<%	
	
	
end if	
	
	
	%>




</script>











<%


		Public Function HTMLEncode_ndk(fString)
		If Not IsNull(fString) then
		fString = replace(fString, ">", "&gt;")
		fString = replace(fString, "<", "&lt;")
		fString = Replace(fString, CHR(32), "&nbsp;")
		fString = Replace(fString, CHR(9), "&nbsp;")
		fString = Replace(fString, CHR(34), "&quot;")
		fString = Replace(fString, CHR(39), "&#39;")
		fString = Replace(fString, CHR(13), "")
		fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
		fString = Replace(fString, CHR(10), "<BR> ")
		HTMLEncode_ndk = fString
		End If
	End Function
	
	
	
	%>